home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27c.d64 / init 2001 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  97 lines
  1. 0 REM "INIT.GR2001"-> ERZEUGT 'GR2001'
  2. 1 REM  *******************************
  3. 2 REM  >> ZUERST MIT MSE EINGEBEN : **
  4. 3 REM  ** 1. 'GR2001TOKEN.90F0' UND **
  5. 4 REM  ** 2. 'GR2001.OBJ'           **
  6. 5 REM  ** UND AUF DISK SICHERN      **
  7. 6 REM  *******************************
  8. 7 REM  >> DANN :                    **
  9. 8 REM  ** 3. 'GRAFIK 2000' LADEN    **
  10. 9 REM  ** 4.  POKE43,1:POKE44,64    **
  11. 10 REM ** 5.  POKE16384,0:          **         ** = BASICANFANG HOCHSETZEN  **
  12. 12 REM ** 6.  INSTALLATIONSPRG.     **
  13. 13 REM **     'INIT.GR2001'         **
  14. 14 REM **     EINGEBEN & STARTEN    **
  15. 15 REM *******************************
  16. 16 REM ** 'INIT.GR2001' ===>        **
  17. 17 REM ** INSTALLATIONSPROGRAMM     **
  18. 18 REM ** FUER 'GR2001'             **
  19. 19 REM ** = ERWEITERTES UND         **
  20. 20 REM **   MODIFIZIERTES           **
  21. 21 REM **  'GRAFIK 2000'(F.BRENDEL) **
  22. 22 REM **---------------------------**
  23. 24 REM **     DR. HEINZ DOMES       **
  24. 26 REM **     JOSEF MARX STR. 13    **
  25. 28 REM ** A - 8043 GRAZ             **
  26. 29 REM **     OESTERREICH           **
  27. 30 REM ** TEL:0316-367335           **
  28. 31 REM *******************************
  29. 32 REM >> HINWEIS :'GR2001'         **
  30. 33 REM ** WARTET NACH LADEN UND     **
  31. 34 REM ** STARTEN MIT 'RUN' AUF     **
  32. 35 REM ** DRUCK VON 'C='TASTE BZW.  **
  33. 36 REM ** 'SPACE'TASTE UND LADET    **
  34. 37 REM ** DANN PROGRAMM 'GRA1',     **
  35. 38 REM ** WELCHES EIN BELIEBIGES    **
  36. 39 REM ** RUMPFPRG. SEIN KANN MIT   **
  37. 40 REM ** MENUE ZUM NACHLADEN DES   **
  38. 41 REM ** GEWUENSCHTEN ARBEITSPRO-  **
  39. 42 REM ** GRAMMES.                  **
  40. 43 REM >>>MIT 'POKE12481,133:       **
  41. 44 REM **     'POKE12482,48'        **
  42. 45 REM ** AUSSCHALTEN DER           **
  43. 46 REM ** AUTOBOOT - FUNKTION.      **
  44. 50 REM *******************************
  45. 100 IFA=1THEN900
  46. 105 IFA=2THEN1000
  47. 304 REM----------------------------->1<----------------------------------------
  48. 305 REM-- "BASICZEILE & AUTOBOOT    ---
  49. 306 [143]--------------------------------
  50. 310 [129]M[178]2059[164]2094:[135]P:S[178]S[170]P:           :[151]M,P:[130]
  51. 320 [139]S[179][177]1968[167][153]"DATA ERROR 1":[128]
  52. 350 [153]"1.  OK"
  53. 400 [131]13,13,30,40,67,41,32,70,46,66,82,69,78,68,69,76,13,13,77,79,68,73,70
  54. 405 [131]73,69,68,58,32,68,79,77,69,83,13,13,13
  55. 449 [143]--------------------------------
  56. 450 [129]M[178]2196[164]2198:[135]P:[151]M,P:[130]
  57. 480 [131]76,176,48  :[143] SPRUNG ->$30B0      AUTOBOOTROUTINE:LADET 'GRA1'
  58. 490 [151]3111,0:           [151]3119,4
  59. 491 [143] ^RAHMEN,HINTERGR. ^AKT.FARBCODE         :$0C27            :$0C2F
  60. 492 [143]--------------------------------
  61. 500 :
  62. 504 [143]----------------------------->2<----------------------------------------
  63. 505 [143]-- "MODIFIZIERTE  LOAD ROUTINE -
  64. 506 REM--  LADET ABSOLUT NACH $E000   -
  65. 507 REM--------------------------------
  66. 510 S=0:FORM=3512TO3523:READP:S=S+P:       :POKEM,P:NEXT
  67. 520 IFS<>1418THENPRINT"DATA ERROR >2":END
  68. 550 PRINT"2.  OK"
  69. 600 DATA169,0,133,185,170,160,224,76,143,158,0,0
  70. 700 :
  71. 704 REM----------------------------->3<----------------------------------------
  72. 705 REM-- "MODIF.  BEFEHLSTABELLE   ---
  73. 706 [143]--------------------------------
  74. 710 [139]A[178]0[167]A[178]1:[151]157,128:[147]"GR2001TOKEN.09F0",8,1
  75. 717 :
  76. 900 :
  77. 904 [143]----------------------------->4<----------------------------------------
  78. 905 [143]-- "OBJECTCODE ERWEITERUNG   ---
  79. 906 REM--  LADEN                    ---
  80. 907 REM--------------------------------
  81. 910 IFA=1THENA=2:LOAD"GR2001.OBJ",8,1  :    REM $2298 - $30E5
  82. 920 POKE157,0
  83. 1000 :
  84. 1004 REM----------------------------->5<---------------------------------------
  85. 1005 REM-- "BASICANFANG & PRG ENDE  ---
  86. 1006 [143]--  ZEIGER SETZEN & SAVE    ---
  87. 1007 [143]-------------------------------
  88. 1020 [143]'GR2001' ENDE $30E5=12517 **             XL=229:XH=48
  89. 1070 [143]----------------------------->6<---------------------------------------
  90. 1071 [143]--- PSEUDODIREKTMODUS:      ---
  91. 1072 [143]-------------------------------
  92. 1130 [153]"LOADP(null)43,1:P(null)44,8:P(null)45,229:P(null)47,229:P(null)49,229:P(null)46,48:P(null)48,48:P(null)50,48"
  93. 1140 [151]2049,48:[151]2050,8
  94. 1150 [153]"SATN"[199](34)"GR2001"[199](34)",8"
  95. 1160 [151]631,19:[129]I[178]1[164]3:[151]631[170]I,13:[130]:[151]198,5:[128]
  96. 2000 [143]-----------------------------------------------------------------------
  97.